00100	TITLE TAB  -  TABLE TEST
00200	
00300	COMMENT/	Run Turn table.
00400		 DATAO 500,[speed(5)]
00500		SPEED 0 TO 77 GO ONE WAY.
00600		SPEED 100 TO 176 GO THE OTHER WAY.
00700		SPEED 177 TABLE HALT.
00800		SPEED 200 BIT TIME OUT./
00900	
01000	SA:
01100		OUTCHR["*"]↔INCHRW
01200		SETZM CTRL↔TRZE 200↔SETOM CTRL#
01300		SETZM META↔TRZE 400↔SETOM META#
01400	
01500		MOVEI =12↔MOVEM TICKS#		;1 SECOND.
01600		MOVE META↔MOVEM FLG#
01700		MOVEI 1↔SKIPE CTRL↔AOS↔MOVEM SPEED#
01800		SPCWAR 5,SW.JOB
01900		SKIPL TICKS↔JRST .-1
02000		SPCWAR'SSW'
02100		JRST SA
02200	
02300	SW.JOB:	SOSG TICKS↔SETZM SPEED
02400		MOVE 1,SPEED↔ANDI 1,3
02500		SKIPE FLG↔JRST GO.CW
02600	GO.CCW:	CONSO 40↔DATAO 500,[177(5)↔020(5)↔040(5)↔060(5)](1)↔DISMIS
02700	GO.CW:	CONSO 40↔DATAO 500,[177(5)↔140(5)↔120(5)↔120(5)](1)↔DISMIS
02800	STOP:	CONSO 40↔DATAO 500,[177(5)]↔DISMIS
02900	
03000	END SA